home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / RechnungsüberC_NW2.outpri < prev    next >
Text File  |  1999-03-27  |  11KB  |  516 lines
  1. 2$VER: Rechnungsübersicht C Brutto Währung1 1.01 (27.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (27.03.1999)
  5. %%Version: 1.01
  6. %%Title: (MT-RechnungIII - Rechnungsübersicht C Brutto Währung1)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89. /W 2 def
  90. /N 2 def
  91. /B 3 def
  92. /M 1 def
  93.  
  94. %% Ausgabe der Kopfdaten
  95.  
  96. Times24 setfont
  97.  
  98. DokumentRandX DokumentRandY moveto
  99. (Ausgangsrechnungen \(Netto\)) dup stringwidth pop
  100. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  101.  
  102. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  103.  
  104. Times10 setfont
  105.  
  106. /ARechnungElemente ARechnungTabelle length def
  107. /ARechnungPosition 0 def
  108.  
  109. /RechEmpfTab ARechnungTabelle length array def
  110. RechEmpfTab 0 (0) put
  111. /RechEmpfAnz 1 def
  112.  
  113. {
  114.     /ARechnungPosition 0 def
  115.     /RechEmpfWert (\377\377\377) def
  116.  
  117.     ARechnungTabelle
  118.     {
  119.         ARechnungPosition 1 add /ARechnungPosition exch def
  120.  
  121.         ARechnungElemente ARechnungPosition ne
  122.         {
  123.             7 get /RechEmpf exch def
  124.             RechEmpfTab RechEmpfAnz 1 sub get RechEmpf lt
  125.             RechEmpf RechEmpfWert lt and
  126.             {
  127.                 /RechEmpfWert RechEmpf def
  128.             } if
  129.         } if
  130.     } forall
  131.  
  132.     RechEmpfWert (\377\377\377) eq
  133.     {
  134.         exit
  135.     } if
  136.  
  137.     RechEmpfTab RechEmpfAnz RechEmpfWert put
  138.  
  139.     RechEmpfAnz 1 add /RechEmpfAnz exch def
  140. } loop
  141.  
  142.  
  143. /ARechnungPosition 0 def
  144. /RechEmpfPos 0 def
  145.  
  146. RechEmpfAnz
  147. {
  148.     /NeuerRechEmpf true def
  149.  
  150.     ARechnungTabelle
  151.     {
  152.  
  153.         ARechnungPosition 1 add /ARechnungPosition exch def
  154.  
  155.         /pos exch def
  156.  
  157.         ARechnungElemente ARechnungPosition ne
  158.         pos 7 get RechEmpfTab RechEmpfPos get eq and
  159.         {
  160.             /Zeilen 4 def
  161.  
  162.             NeuerRechEmpf
  163.             {
  164.                 pos 7 get (0) eq
  165.                 {
  166.                     Zeilen 3 add /Zeilen exch def
  167.                 }
  168.                 {
  169.                     pos 3 get 1 get 3 get length 2 add Zeilen add /Zeilen exch def
  170.                 } ifelse
  171.             } if
  172.  
  173.             pos 28 get
  174.             {
  175.                 Zeilen 1 add /Zeilen exch def
  176.             } if
  177.  
  178.             pos 66 get
  179.             {
  180.                 0 ne
  181.                 {
  182.                     Zeilen 1 add /Zeilen exch def
  183.                 } if
  184.             } forall
  185.  
  186.             pos 36 get
  187.             {
  188.                 Zeilen 1 add /Zeilen exch def
  189.             } if
  190.  
  191.             pos 71 get
  192.             {
  193.                 Zeilen 2 add /Zeilen exch def
  194.                 1 get 11 get
  195.                 {
  196.                     0 ne
  197.                     {
  198.                         Zeilen 1 add /Zeilen exch def
  199.                     } if
  200.                 } forall
  201.             } forall
  202.  
  203.             pos 47 get
  204.             {
  205.                 {
  206.                     Zeilen 1 add /Zeilen exch def
  207.                 } if
  208.             } forall
  209.  
  210.             Zeilen Times10Zeile mul cvi 55 add DokumentRandY gt
  211.             {
  212.                 DokumentRandX 450 add 50 moveto
  213.                 (Seite: ) show
  214.                 Seite SeitenNr cvs show
  215.                 showpage
  216.  
  217.                 /DokumentRandY DokumentRandYOriginal def
  218.                 Seite 1 add /Seite exch def
  219.             } if
  220.  
  221.             NeuerRechEmpf
  222.             {
  223.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  224.  
  225.                 DokumentRandX DokumentRandY Times10Zeile add 486 0 rectstroke
  226.  
  227.                 pos 7 get (0) eq
  228.                 {
  229.                     DokumentRandX DokumentRandY moveto
  230.                     (Barverkauf) show
  231.                     DokumentRandY Times10Zeile sub Times10Zeile sub /DokumentRandY exch def
  232.                 }
  233.                 {
  234.                     DokumentRandX DokumentRandY moveto
  235.                     (Rechnungsempfänger: ) show
  236.                     pos 7 get show
  237.  
  238.                     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  239.  
  240.                     pos 3 get 1 get 3 get
  241.                     {
  242.                         DokumentRandX DokumentRandY moveto
  243.                         show
  244.                         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  245.                     } forall
  246.  
  247.                     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  248.  
  249.                 } ifelse
  250.  
  251.                 /NeuerRechEmpf false def
  252.             } if
  253.  
  254.             DokumentRandX DokumentRandY Times10Zeile add 4 add 486 0 rectstroke
  255.  
  256.             DokumentRandX 3 add DokumentRandY moveto
  257.             (Rechnung Nr: ) show
  258.             pos 0 get show
  259.             ( vom ) show
  260.             pos 20 get 1 get show
  261.  
  262.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  263.  
  264.             pos 71 get
  265.             {
  266.                 /art exch def
  267.  
  268.                 DokumentRandX 3 add DokumentRandY moveto
  269.                 art 1 get 1 get show
  270.  
  271.                 DokumentRandX DokumentRandY moveto
  272.                 art 1 get 2 get dup stringwidth
  273.                 pop 90 exch sub
  274.                 DokumentRandX add DokumentRandY moveto
  275.                 show
  276.  
  277.                 DokumentRandX 95 add DokumentRandY moveto
  278.                 art 0 get 5 get show
  279.  
  280.                 DokumentRandX DokumentRandY moveto
  281.                 art 1 get 8 get dup stringwidth
  282.                 pop 180 exch sub
  283.                 DokumentRandX add DokumentRandY moveto
  284.                 show
  285.                 ( %) show
  286.  
  287.                 DokumentRandX 200 add DokumentRandY moveto
  288.                 art 0 get 3 get show
  289.  
  290.                 DokumentRandX DokumentRandY moveto
  291.                 art 1 get 3 get W get dup stringwidth
  292.                 pop 400 exch sub
  293.                 DokumentRandX add DokumentRandY moveto
  294.                 show
  295.  
  296.                 /Zeilen 0 def
  297.                 art 1 get 11 get
  298.                 {
  299.                     0 ne
  300.                     {
  301.                         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  302.  
  303.                         DokumentRandX 200 add DokumentRandY moveto
  304.                         art 1 get 13 get Zeilen get show
  305.  
  306.                         DokumentRandX DokumentRandY moveto
  307.                         art 1 get 12 get Zeilen get W get dup stringwidth
  308.                         pop 325 exch sub
  309.                         DokumentRandX add DokumentRandY moveto
  310.                         show
  311.  
  312.                         DokumentRandX DokumentRandY moveto
  313.                         art 1 get 15 get Zeilen get W get dup stringwidth
  314.                         pop 400 exch sub
  315.                         DokumentRandX add DokumentRandY moveto
  316.                         show
  317.                     } if
  318.                     Zeilen 1 add /Zeilen exch def
  319.                 } forall
  320.  
  321.                 DokumentRandX DokumentRandY moveto
  322.                 art 1 get 6 get W get dup stringwidth
  323.                 pop 480 exch sub
  324.                 DokumentRandX add DokumentRandY moveto
  325.                 show
  326.  
  327.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  328.  
  329.             } forall
  330.  
  331.             /Zeilen 0 def
  332.             pos 66 get
  333.             {
  334.                 0 ne
  335.                 {
  336.                     DokumentRandX 3 add DokumentRandY moveto
  337.                     pos 68 get Zeilen get show
  338.         
  339.                     DokumentRandX DokumentRandY moveto
  340.                     pos 67 get Zeilen get W get dup stringwidth
  341.                     pop 325 exch sub
  342.                     DokumentRandX add DokumentRandY moveto
  343.                     show
  344.  
  345.                     DokumentRandX DokumentRandY moveto
  346.                     pos 70 get Zeilen get W get dup stringwidth
  347.                     pop 480 exch sub
  348.                     DokumentRandX add DokumentRandY moveto
  349.                     show
  350.  
  351.                     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  352.                 } if
  353.                 Zeilen 1 add /Zeilen exch def
  354.             } forall
  355.  
  356.             pos 36 get
  357.             {
  358.                 DokumentRandX 3 add DokumentRandY moveto
  359.                 (abzüglich Skonto ) show
  360.                 pos 37 get show
  361.                 ( %:) show
  362.         
  363.                 DokumentRandX DokumentRandY moveto
  364.                 pos 38 get W get dup stringwidth
  365.                 pop 480 exch sub
  366.                 DokumentRandX add DokumentRandY moveto
  367.                 show
  368.  
  369.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  370.             } if
  371.  
  372.             pos 28 get
  373.             {
  374.                 DokumentRandX 3 add DokumentRandY moveto
  375.                 (Versandkosten:) show
  376.         
  377.                 DokumentRandX DokumentRandY moveto
  378.                 pos 29 get W get dup stringwidth
  379.                 pop 480 exch sub
  380.                 DokumentRandX add DokumentRandY moveto
  381.                 show
  382.  
  383.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  384.             } if
  385.  
  386.             DokumentRandY 5 sub /DokumentRandY exch def
  387.  
  388.             DokumentRandX 3 add DokumentRandY moveto
  389.             (Rechnungsendbetrag \(Netto\):) show
  390.  
  391.             DokumentRandX DokumentRandY moveto
  392.             pos 42 get N get dup stringwidth
  393.             pop 480 exch sub
  394.             Dokume